Simples [PortScanner]
Publicado por breek (última atualização em 02/03/2012)
[ Hits: 4.223 ]
É um script simples. Criado para iniciantes.
Não é nenhum [nmap] mas é bem legal e funcional.
Esta bem comentado. É claro que esta em [inglês], mas é para não perder o costume.
Usei o [Google Tradutor], caso haja alguma palavra errada é culpa é dele.
#!/usr/bin/perl #-------------------------------------------------------------------------------------------------------- # # @Author: breek # @Code: SimplePortScanner.pl # @Version: 0.1.0 # @Date: 22/02/2012 # #-------------------------------------------------------------------------------------------------------- #===============================================================# # É um script simples. Criado para iniciantes. # Não é nenhum [nmap] mas é bem legal e funcional. # # Esta bem comentado. É claro que esta em [inglês], mas # é para não perder o costume. Usei o [Google Tradutor], # caso haja alguma palavra errada é culpa é dele. # # Criado para ser modificado. Cada modificação mexa na versão. # NÃO ALTERE MEU NOME!! # NÃO ALTERE O NOME DO SCRIPT!! #===============================================================# use strict; use warnings; use IO::Socket; #-------------------------------------------------------------------------------------------------------- #__BEGIN_MAIN__ # # Name: Main # # Purpose: Initializes the script. # # Input: $Var_IP # $Var_BeginPort # $Var_EndPort # # Output: $Var_IP # $Var_Scanning # #----------------------------- #Global variables # my $Var_IP; # Recebe o [Endereço IP] - USUARIO my $Var_BeginPort; # Recebe a [Porta inicial] - USUARIO my $Var_EndPort; # Recebe a [Porta final] - USUARIO my $Var_Scanning; # Escanea as portas - SCRIPT my $Var_FindOpenPort; # Recebe as portas abertas - SCRIPT # # #----------------------------- system( "cls" ); # Recebe o [Endereço IP] # print "Enter the IP address: "; $Var_IP = <>; chomp $Var_IP; # Recebe a [Porta inicial] # print "Enter the starting port: "; $Var_BeginPort = <>; chomp $Var_BeginPort; # Recebe a [Porta final] # print "Enter the ending port: "; $Var_EndPort = <>; chomp $Var_EndPort; # Iniciando escaneamento # print "\n\nScanning IP [ $Var_IP ]. \n\n"; # Escaneando # for( $Var_Scanning = $Var_BeginPort; $Var_Scanning <= $Var_EndPort; $Var_Scanning++ ) { $Var_FindOpenPort = IO::Socket::INET->new( PeerAddr => $Var_IP, # Endereço IP PeerPort => "$Var_Scanning", # Numero da porta Proto => "TCP", # Protocolo ); # Porta aberta encontrada # if( $Var_FindOpenPort ) { print "[+] Port [$Var_Scanning] is open. \n"; } } # Finalizando script # print "\nScanning...DONE. \n"; exit; #__END_MAIN__ #--------------------------------------------------------------------------------------------------------
Script de conectividade wireless
Carregando automaticamente wireless via ndiswrapper II
Nenhum comentário foi encontrado.
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Muitas dificuldades ao instalar distro Linux em Notebook Sony Vaio PCG-6131L (VPCEA24FM)
Slackpkg+ (Slackpkg Plus) está de volta!
Como dividir duas janelas igualmente e lado-a-lado na sua tela
Configurando o Conky para iniciar corretamente no sistema
3 configurações básicas que podem melhorar muito a sua edição pelo editor nano
Minha rede tem um espaço invisível que não dá pra digitar o nome da re... (1)
Pedagogia no brasil não passa de alfabetização por m4sturbação mental ... (2)
compilação samba 4.22 rock linux 9.5 (3)
Erro de segmentação «Segmentation fault (core dumped)» ao retornar obj... (7)